Date: Sat, 27 Aug 94 04:30:18 PDT 

From: Ham-Space Mailing List and Newsgroup <ham-space@ucsd.edu> 
Errors-To: Ham-Space-Errors@UCSD.Edu 

Reply-To: Ham-Space@UCSD.Edu 

Precedence: Bulk 

Subject: Ham-Space Digest V94 #238 

To: Ham-Space 


Ham-Space Digest Sat, 27 Aug 94 Volume 94 : Issue 238 


Today's Topics: 
Converting Grid to Lat-Lon 
QSL Route for RS-12 Robot 


Send Replies or notes for publication to: <Ham-Space@UCSD.Edu> 
Send subscription requests to: <Ham-Space-REQUEST@UCSD.Edu> 
Problems you can't solve otherwise to brian@ucsd.edu. 


Archives of past issues of the Ham-Space Digest are available 
(by FTP only) from UCSD.Edu in directory "mailarchives/ham-space". 


We trust that readers are intelligent enough to realize that all text 
herein consists of personal comments and does not represent the official 
policies or positions of any party. Your mileage may vary. So there. 


Date: 25 Aug 1994 13:00:33 -0700 

From: nntp.crl.com!crl4.crl.com!not-for-mail@decwrl.dec.com 
Subject: Converting Grid to Lat-Lon 

To: ham-space@ucsd.edu 


In article <9408250942.ZM25231@SALCIUS2>, 
Wayne_Estes@csg.mot.com (Wayne_Estes) wrote: 


> I'm looking for a DOS or Windows program that can: 

> 

> A. Convert 6-digit Maidenhead grid to Latitude/Longitude. 
> B. Convert Latitude/Longitude to 6-digit Maidenhead grid. 


Wayne - 
The attached Quick BASIC program will perform the functions you 
mentioned above. Sorry, I don't know who was the original author, so 


can't give appropriate credits. 


73 de Lou / N5SGL 


'Grid Square <-> latitude/longitude conversion 


CLS : COLOR 0, 7: PRINT "GRID SQUARE LOCATOR": COLOR 7, 0: PRINT 
PRINT "Which do you want to convert FROM?": PRINT 


COLOR O, 7: PRINT "L"; : COLOR 7, 0: PRINT "at/Lon a 
COLOR ©, 7: PRINT "G"; : COLOR 7, ©: PRINT "rid ae 
COLOR ©, 7: PRINT "Q"; : COLOR 7, ©: PRINT "uit": PRINT 
RPT1: 
ag = "" 
DO 
a$ = INKEY$ 


LOOP UNTIL a$ <> "" 

IF UCASE$(a$) = "Q" THEN END 

IF UCASE$(a$) = "L" THEN GOTO LL 
IF UCASE$(a$) = "G" THEN GOTO GRID 
GOTO RPT1 


LL: 
CLEAR : e9 = .000001 
CLS : COLOR 0, 7: PRINT "LAT/LON": COLOR 7, 0: PRINT 
PRINT "Enter SOUTH latitude and EAST longitude as NEGATIVE numbers." 
PRINT 
INPUT "LAT (DD.MM)"; 1 
IF 1 < -90 OR 1 > 90 THEN RUN 
INPUT "LON (DDD.MM)"; o 
IF o < -180 OR o > 180 THEN RUN 
os = SGN(o): o = ABS(o): ls = SGN(1): 1 = ABS(1) 
la = (INT(1) + (1 - INT(1)) / .6) * Is 
lo = (INT(o) + (o - INT(o)) / .6) * os 
IF lo < © THEN lo = lo + 360 
w3 = 180 - lo: IF w3 < 0 THEN w3 = w3 + 360 
wl = INT(w3 / 20 + e9) 
w2 = INT((w3 - 20 * wl) / 2 + e9) + 48: wi = wl + 65 
w3 = INT(24 * (w3 / 2 - INT(wW3 / 2)) + e9) + 65 
11 = INT((la + 90) / 10 + e9): 12 = INT(la + 90 + e9 - 10 x 11) 
13 = INT((la + 90 - 10 * 11 - 12) * 24 + e9) 
11 = 11 + 65: 12 = 12 + 48: 13 = 13 + 65 
g$ = CHR$(w1) + CHR$(11) + CHR$(w2) + CHR$(12) + CHR$(w3) + CHR$(13) 


PRINT : PRINT "Grid square = "; UCASE$(g$) 

LOCATE 24, 1: PRINT "< Press a key to continue >"; 

a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": GOTO START 
GRID: 


CLEAR : e9 = .000001 
CLS : COLOR O, 7: PRINT "GRID SQUARE": COLOR 7, ©: PRINT 


PRINT "Enter 2-, 4-, or 6-character grid square." 
PRINT "Short ones will be optimized to center of square.": PRINT 
INPUT "Grid square"; g$ 


g$ 
13 


UCASE$(g$) 
LEN(g$): IF 13 < 2 OR 13 > 6 THEN RUN 


IF 13 = 1 OR 13 = 3 OR 13 = 5 THEN RUN 
SELECT CASE 13 


CASE 2 
g$ = g$ + "5S5LL" 
CASE 4 
e$ = gf + "LL" 
END SELECT 
LOCATE CSRLIN - 1, 1: PRINT "Grid square = "; g$; " " 
RESTORE 
FOR x = 1 TO 6 
READ y$, z$ 


t$ = MID$(g$, x, 1): IF t$ < y$ OR t$ > z$ THEN RUN 


NEXT x 
DATA A,R,A,S,0,9,0,9,A,X,A,X 


wi 
w2 
w3 
lo 
IF 
11 
12 
13 
la 
IF 
ls 


ASC(LEFT$(g$, 1)) - 65 

ASC(MID$(g$, 3, 1)) - 48 

ASC(MID$(g$, 5, 1)) - 65 

180 - 20 * wl - 2 * w2 - w3 / 12-1 / 24 


lo < 0 THEN lo = lo + 360 


ASC(MID$(g$, 2, 1)) - 65 

ASC (MID$(g$, 4, 1)) - 48 
ASC(RIGHT$(g$, 1)) - 65 

-90 + 10 « 11 +12+13/24+1/ 48 


lo > 180 THEN lo = lo - 360 


SGN(la): la = ABS(la) 


1 = (INT(la) + INT((la - INT(la)) * 60) / 100) x ls 
os = SGN(lo): lo = ABS(1lo) 
o = (INT(lo) + INT((lo - INT(lo)) * 60) / 100) x* os 


PRINT 

PRINT "LAT (DD.MM) ="; 1 

PRINT "LON (DDD.MM) ="; o 

PRINT 

PRINT "(SOUTH latitude and EAST longitude shown as negative numbers.)" 
LOCATE 24, 1: PRINT "< Press a key to continue >"; 

a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "" 

GOTO START 


Date: 25 Aug 1994 12:45:37 GMT 

From: hatch.sonalysts.com! gerheim@uunet.uu.net 
Subject: QSL Route for RS-12 Robot 
ham-space@ucsd.edu 


To: 


Does anyone know the QSL route for the RS-12 robot? I worked it a few 
weeks ago, and don't recall the route. TNX, 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKK 


Al Gerheim Sonalysts, Inc. 
Email: gerheim@sonalysts.com 215 Parkway North 
Work: (203)442-4355 Waterford CT 06385 


KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


End of Ham-Space Digest V94 #238 
KKKKKKKKKKKKKKKKKKKKKKKKEKR KEK AKA 


